;; EX-50.scm - Bowed String (JMcC)

(let* ((root 5)
       (scale '(0 2 4 5 6 9 11))
       (freq (MIDICPS (+ (random scale) (random '(24 36 48 60 72 84)) root)))
       (exc (BrownNoise.ar 
	     (Mul '(0.007 0.007) 
		  (Max 0 (LFNoise1.kr 
			  (random* random-exponential-normal 0.125 0.5) 
			  0.6 0.4))))))
  (SoftClip (Mul (Klank.ar 
		  exc 
		  spec: (Klank.spec (iota 12 freq freq)
				    (geom 12 1 (random 0.7 0.9))
				    (randomF-list 12 1.0 3.0))) 0.1)))
